home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / util / gnu / gnu_smalltalk1_2.lha / Number.st < prev    next >
Text File  |  1992-02-15  |  6KB  |  311 lines
  1. "======================================================================
  2. |
  3. |   Number Method Definitions
  4. |
  5.  ======================================================================"
  6.  
  7.  
  8. "======================================================================
  9. |
  10. | Copyright (C) 1990, 1991, 1992 Free Software Foundation, Inc.
  11. | Written by Steve Byrne.
  12. |
  13. | This file is part of GNU Smalltalk.
  14. |
  15. | GNU Smalltalk is free software; you can redistribute it and/or modify it
  16. | under the terms of the GNU General Public License as published by the Free
  17. | Software Foundation; either version 1, or (at your option) any later version.
  18. | 
  19. | GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
  20. | ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  21. | FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
  22. | details.
  23. | 
  24. | You should have received a copy of the GNU General Public License along with
  25. | GNU Smalltalk; see the file COPYING.  If not, write to the Free Software
  26. | Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
  27. |
  28.  ======================================================================"
  29.  
  30.  
  31. "
  32. |     Change Log
  33. | ============================================================================
  34. | Author       Date       Change 
  35. | sbb         16 Mar 91      Class creation now separate statement.
  36. |
  37. | sbb          9 Nov 90      Put in changes for fractions.
  38. |
  39. | sbyrne     19 Sep 89      Converted to use real category strings.
  40. |
  41. | sbyrne     25 Apr 89      created.
  42. |
  43. "
  44.  
  45. Magnitude subclass: #Number
  46.       instanceVariableNames: ''
  47.       classVariableNames: ''
  48.       poolDictionaries: ''
  49.       category: nil
  50. !
  51.  
  52. Number comment: 
  53. 'I am an abstract class that provides operations on numbers, both floating
  54. point and integer.  I provide some generic predicates, and supply the 
  55. implicit type coercing code for binary operations.' !
  56.  
  57. !Number methodsFor: 'converting'!
  58.  
  59. degreesToRadians
  60.     ^self / 57.295779513082320876846364344191
  61. !
  62.  
  63. radiansToDegrees
  64.     ^self * 57.295779513082320876846364344191
  65. !
  66.  
  67. coerce: aNumber
  68.     self subclassResponsibility
  69. !
  70.  
  71. generality
  72.     self subclassResponsibility
  73. !
  74.  
  75. retry: aSymbol coercing: aNumber
  76.     | selfGen aNumGen |
  77.     (aSymbol == #= or: [ aSymbol == #~= ])
  78.         ifTrue: [ (aNumber isKindOf: Number) 
  79.               "Return false for =, true for ~="
  80.               ifFalse: [ ^aSymbol ~= #= ] ].
  81.     selfGen _ self generality.
  82.     aNumGen _ aNumber generality.
  83.     selfGen > aNumGen
  84.         ifTrue: [ ^self perform: aSymbol with: (self coerce: aNumber) ].
  85.     selfGen < aNumGen
  86.         ifTrue: [ ^(aNumber coerce: self) perform: aSymbol with: aNumber ].
  87.     self error: 'retry:coercing: called with arguments of the same generality' 
  88. !!
  89.  
  90.  
  91.  
  92. !Number methodsFor: 'arithmetic'!
  93.  
  94. + aNumber
  95.     self subclassResponsibility
  96. !
  97.  
  98. - aNumber
  99.     self subclassResponsibility
  100. !
  101.  
  102. * aNumber
  103.     self subclassResponsibility
  104. !
  105.  
  106. / aNumber
  107.     self subclassResponsibility
  108. !
  109.  
  110. // aNumber
  111.     self subclassResponsibility
  112. !
  113.  
  114. \\ aNumber
  115.     self subclassResponsibility
  116. !
  117.  
  118. quo: aNumber
  119.     "Return the integer quotient of dividing the receiver by aNumber with
  120.     truncation towards zero."
  121.     ^(self / aNumber) truncated
  122. !
  123.  
  124. rem: aNumber
  125.     "Return the remainder of dividing the receiver by aNumber with
  126.     truncation towards zero."
  127.     ^self - ((self quo: aNumber) * aNumber)
  128. !!
  129.  
  130.  
  131.  
  132. !Number methodsFor: 'truncation and round off'!
  133.  
  134. truncated
  135.     ^self subclassResponsibility
  136. !
  137.  
  138. truncateTo: aNumber
  139.     ^(self / aNumber) truncated * aNumber
  140. !
  141.  
  142. rounded
  143.     "Returns the integer nearest the receiver"
  144.     ^(self + 0.5) truncated
  145. !
  146.  
  147. roundTo: aNumber
  148.     ^(self / aNumber) rounded * aNumber
  149. !!
  150.  
  151.  
  152.  
  153. !Number methodsFor: 'testing'!
  154. negative
  155.     ^self < 0
  156. !
  157.  
  158. positive
  159.     ^self >= 0
  160. !
  161.  
  162. strictlyPositive
  163.     ^self > 0
  164. !
  165.  
  166. sign
  167.     "Returns the sign of the receiver."
  168.     self < 0 ifTrue: [ ^-1 ].
  169.     self > 0 ifTrue: [ ^1 ].
  170.     ^0
  171. !
  172.  
  173. even
  174.     "Returns true if self is divisible by 2"
  175.     ^self truncated even
  176. !
  177.  
  178. odd
  179.     "Returns true if self is not divisible by 2"
  180.     ^self truncated odd
  181. !!
  182.  
  183.  
  184.  
  185. !Number methodsFor: 'misc math'!
  186.  
  187. squared
  188.     ^self * self
  189. !
  190.  
  191. abs
  192.     self > 0 ifTrue: [ ^self ] ifFalse: [ ^self negated ]
  193. !
  194.  
  195. negated
  196.     ^0 - self
  197. !
  198.  
  199. sin
  200.     ^self asFloat sin
  201. !
  202.  
  203. cos
  204.     ^self asFloat cos
  205. !
  206.  
  207. tan
  208.     ^self asFloat tan
  209. !
  210.  
  211. arcSin
  212.     ^self asFloat arcSin
  213. !
  214.  
  215. arcCos
  216.     ^self asFloat arcCos
  217. !
  218.  
  219. arcTan
  220.     ^self asFloat arcTan
  221. !
  222.  
  223. sqrt
  224.     ^self asFloat sqrt
  225. !
  226.  
  227. exp
  228.     ^self asFloat exp
  229. !
  230.  
  231. ln
  232.     ^self asFloat ln
  233. !
  234.  
  235. log: aNumber
  236.     "return log base aNumber of the receiver"
  237.     ^self ln / aNumber ln
  238. !
  239.  
  240. floorLog: radix
  241.     ^(self log: radix) floor
  242. !
  243.  
  244. raisedToInteger: anInteger
  245.     "Return self raised to anInteger power"
  246.     | result |
  247.     result _ self coerce: 1.
  248.     anInteger timesRepeat: [ result _ result * self ].
  249.     ^result
  250. !!
  251.  
  252.  
  253.  
  254.  
  255. !Number methodsFor: 'truncation and round off'!
  256.  
  257. floor
  258.     "Return the integer nearest the receiver toward negative infinity."
  259.  
  260.     | selfTruncated |
  261.     selfTruncated _ self truncated.
  262.     "If positive, truncation to zero is what we want."
  263.     self >= 0 ifTrue: [^selfTruncated].
  264.     "Must be negative."
  265.     self = selfTruncated
  266.         ifTrue: [^selfTruncated]
  267.         ifFalse: [^selfTruncated - 1]
  268. !!
  269.  
  270. !Number methodsFor: 'arithmetic'!
  271.  
  272. reciprocal
  273.     self = 0
  274.         ifTrue: [self error: 'can not return the reciprocal of zero']
  275.         ifFalse: [^1 / self]
  276. !!
  277.  
  278.  
  279.  
  280. !Number methodsFor: 'Interval iterators'!
  281.  
  282. to: stop
  283.     ^Interval from: self to: stop
  284. !
  285.  
  286. to: stop by: step
  287.     ^Interval from: self to: stop by: step
  288. !
  289.  
  290. to: stop by: step do: aBlock
  291.     | i |
  292.     i _ self.
  293.     step > 0
  294.         ifTrue: [
  295.             [ i <= stop ]
  296.             whileTrue: [ aBlock value: i.
  297.                      i _ i + step ]
  298.         ]
  299.     ifFalse: [
  300.             [ i >= stop ]
  301.             whileTrue: [ aBlock value: i.
  302.                      i _ i + step ]
  303.     ]
  304.     " ??? What's the return value? "
  305. !
  306.  
  307. to: stop do: aBlock
  308.     ^self to: stop by: 1 do: aBlock
  309. !!
  310.  
  311.